home *** CD-ROM | disk | FTP | other *** search
- object PacketGeneratorForm: TPacketGeneratorForm
- Left = 194
- Top = 108
- Width = 640
- Height = 480
- Caption = 'Packet generator'
- Color = clBtnFace
- Constraints.MinHeight = 480
- Constraints.MinWidth = 640
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsMDIChild
- Icon.Data = {<image000.ico>}
- OldCreateOrder = False
- Position = poDefault
- Visible = True
- WindowState = wsMaximized
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDeactivate = FormDeactivate
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object GroupBox1: TGroupBox
- Left = 0
- Top = 0
- Width = 632
- Height = 121
- Align = alTop
- TabOrder = 0
- object Label3: TLabel
- Left = 24
- Top = 58
- Width = 28
- Height = 13
- Caption = 'Send:'
- end
- object Label4: TLabel
- Left = 256
- Top = 58
- Width = 38
- Height = 13
- Caption = 'packets'
- end
- object Label5: TLabel
- Left = 352
- Top = 58
- Width = 25
- Height = 13
- Caption = 'Wait:'
- end
- object Label6: TLabel
- Left = 488
- Top = 58
- Width = 13
- Height = 13
- Caption = 'ms'
- end
- object Label7: TLabel
- Left = 304
- Top = 90
- Width = 69
- Height = 13
- Caption = 'Packet length:'
- end
- object Label8: TLabel
- Left = 48
- Top = 20
- Width = 40
- Height = 13
- Caption = 'Adapter:'
- end
- object Label9: TLabel
- Left = 488
- Top = 90
- Width = 25
- Height = 13
- Caption = 'bytes'
- end
- object RadioButton1: TRadioButton
- Left = 64
- Top = 56
- Width = 89
- Height = 17
- Caption = 'Fixed count:'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = RadioButton1Click
- end
- object RadioButton2: TRadioButton
- Left = 64
- Top = 72
- Width = 81
- Height = 25
- Caption = 'Continously'
- TabOrder = 1
- OnClick = RadioButton2Click
- end
- object SpinEdit1: TSpinEdit
- Left = 160
- Top = 56
- Width = 89
- Height = 22
- MaxValue = 5000
- MinValue = 1
- TabOrder = 2
- Value = 1
- end
- object SpinEdit2: TSpinEdit
- Left = 384
- Top = 56
- Width = 97
- Height = 22
- MaxValue = 1000
- MinValue = 1
- TabOrder = 3
- Value = 1
- end
- object BitBtn1: TBitBtn
- Left = 528
- Top = 64
- Width = 40
- Height = 33
- TabOrder = 4
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object ComboBox1: TComboBox
- Left = 120
- Top = 16
- Width = 417
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 5
- end
- object SpinEdit3: TSpinEdit
- Left = 384
- Top = 88
- Width = 97
- Height = 22
- MaxValue = 1550
- MinValue = 60
- TabOrder = 6
- Value = 60
- end
- object BitBtn2: TBitBtn
- Left = 576
- Top = 64
- Width = 41
- Height = 33
- TabOrder = 7
- Kind = bkClose
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 432
- Width = 632
- Height = 21
- Panels = <
- item
- Text = 'Packets sent:'
- Width = 150
- end
- item
- Text = 'Network adapter:'
- Width = 300
- end
- item
- Text = 'Status:'
- Width = 50
- end>
- SimplePanel = False
- end
- object GroupBox2: TGroupBox
- Left = 0
- Top = 121
- Width = 632
- Height = 239
- Align = alClient
- Caption = ' Packet '
- TabOrder = 2
- object Memo1: TMemo
- Left = 2
- Top = 15
- Width = 430
- Height = 222
- Align = alClient
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- ScrollBars = ssVertical
- TabOrder = 0
- OnChange = Memo1Change
- end
- object Memo2: TMemo
- Left = 432
- Top = 15
- Width = 198
- Height = 222
- Align = alRight
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- PopupMenu = PopupMenu1
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 1
- end
- end
- object GroupBox3: TGroupBox
- Left = 0
- Top = 360
- Width = 632
- Height = 72
- Align = alBottom
- Caption = ' Progress '
- TabOrder = 3
- object Label1: TLabel
- Left = 432
- Top = 16
- Width = 32
- Height = 13
- Caption = 'Label1'
- end
- object Label2: TLabel
- Left = 432
- Top = 40
- Width = 32
- Height = 13
- Caption = 'Label2'
- end
- object ProgressBar1: TProgressBar
- Left = 24
- Top = 24
- Width = 369
- Height = 25
- Min = 0
- Max = 100
- TabOrder = 0
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 64
- Top = 297
- object Clear1: TMenuItem
- Caption = 'Clear'
- OnClick = Clear1Click
- end
- end
- end
-